home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 111 / 111.d81 / set shadow (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 3 poke53280,0
  2. 5 dv=peek(186):ifdv<8thendv=8
  3. 6 poke53265,11:goto2000
  4. 10 sys57812"shadow.ml",dv,0:poke780,0:poke781,14:poke782,206:sys65493
  5. 15 print"goto1000:rem [211]ave your [195]ustom [210]egisters          and [210]eturn to [204]oadstar
  6. 20 [158]52750:[158]52762
  7. 30 [151]53161[170]17,0:[151]53204[170]17,1
  8. 35 [151]53157,30
  9. 40 [158]52753:[129]x[178]0[164]150[169]2:[151]53158,x:[130]
  10. 50 [128]
  11. 1000 [158]52762:[151]53269,0
  12. 1010 [133]"filename";f$:[139]f$[178]""[167]1050
  13. 1015 [159]15,dv,15,"s0:"[170]f$:[160]15
  14. 1020 [158]57812(f$),dv:[151]193,14:[151]194,206
  15. 1030 [151]174,0:[151]175,208:[158]62954
  16. 1040 [153]"load              done"
  17. 2000 [139][194](49152)[178]120[167]2015
  18. 2001 [143]  sys57812"font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  19. 2015 [151]53272,23:[153]"loadcont":[151]53281,0
  20. 2020 [129]x[178]0[164]22:[153]" spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  21. 2040 [153]"open                            "
  22. 2041 [153]"spc(open 1. valdit (NULL)hadow (NULL)egisters   "
  23. 2042 [153]"spc(open                            "
  24. 2043 [153]"spc(open 2. (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)      "
  25. 2044 [153]"spc(open                            "
  26. 2045 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  27. 2050 [151]165,4:[151]53265,27:[151]53280,14
  28. 2060 [151]198,0
  29. 2070 [161]z$:[139]z$[178]""[167]2070
  30. 2080 z[178][197](z$):[139](z[178]0)[176](z[177]2)[167]2070
  31. 2090 [139]z[178]2[167]61000
  32. 2100 [153]"load":[151]53281,6:[151]646,14:[137]10
  33. 10000 [159]15,8,15,"s0:set shadow":[160]15:[148]"0:set shadow",8:[128]
  34. 59999 [128]
  35. 60000 [159]15,8,15,"s0:set shadow":[160]15:[148]"0:set shadow.",8:[128]
  36. 61000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]61020
  37. 61010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
  38. 61020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[158]64738
  39. 61030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  40. 61040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
  41. 61999 [128]
  42.